//CONTAR REGISTRO DE UMA TABELA

void __fastcall TForm1::Button1Click(TObject *Sender)

{

Label1->Caption = Query1->RecordCount;

}